home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / potgo.inc < prev    next >
Text File  |  1998-06-24  |  405b  |  22 lines
  1. pattern AllocPotBits(_bits) is
  2.     push a6;
  3.     d0.l:=_bits;
  4.     a6:=PotgoBase; jsr [a6-6];
  5.     pop a6;
  6. endp;                                                            # ALLOCPOTBITS
  7.  
  8. pattern FreePotBits(_bits) is
  9.     push a6;
  10.     d0.l:=_bits;
  11.     a6:=PotgoBase; jsr [a6-12];
  12.     pop a6;
  13. endp;                                                            # FREEPOTBITS
  14.  
  15. pattern WritePotgo(_word,_mask) is
  16.     push a6;
  17.     safe d0.l:=_word; d1.l:=_mask;;
  18.     a6:=PotgoBase; jsr [a6-18];
  19.     pop a6;
  20. endp;                                                            # WRITEPOTGO
  21.  
  22.